Delphi - [Delphi 7] E' possibile salvare in Jpeg nello Stream, un immagine di un image1?

Forum - Delphi - [Delphi 7] E' possibile salvare in Jpeg nello Stream, un immagine di un image1?

Track (Normal User)
Rookie

Messaggi: 30
Iscritto: 23/01/2011

Postato alle 1:46
Domenica, 07/08/2011

Salve a tutti, come da titolo, mi piacerebbe sapere se è possibile salvare in Jpeg nello stream un immagine presente su un image1

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 11:23
Domenica, 07/08/2011

Vediamo se ho capito ...
Per utilizzare lo stream devi andare a beccare la classe graphics, sotto un piccolo esempio

Codice sorgente - presumibilmente Delphi

Var oStm:TMemoryStream;
begin
  oStm:= TMemoryStream.Create;
  Try
    Image1.Picture.Graphic.SaveToStream(oStm);
    // Uso stream per salvare l'immagine
    oStm.SaveToFile('c:\file\test.jpg');
  Finally
    oStm.Free;
  End;

Perfetto, posso sempre provare, comunque non mi interessa salvare in C:, ma solo come salvare un image1 nello stream, grazie di tutto, ti faccio sapere :) - Track - 07/08/11 20:24

il savetostream è solo per completare l'esempio e per testare che dentro lo stream ci sia l'immagine - Goblin - 07/08/11 20:28

Scusa l'ignoranza, ma Ostm.Free, cosa vorrebbe dire precisamente? - Track - 11/08/11 22:30

oStm.free serve per fare il free (distruggere) l'oggetto stream una volta usato, e liberare risorse - Goblin - 11/08/11 22:47

Ma una volta salvato, rimane salvato nello stream? cioè, posso fare un LoadFromStream ? - Track - 12/08/11 00:32

Perdona l'ignoranza... - Track - 12/08/11 13:59

Ibis redibis non morieris in bello

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 21:29
Domenica, 14/08/2011

allora .. in base alla richiesta di Track posto 2 righe di come farei io in un applicazione con solo 1 form, in quanto ho deciso di utilizzare una variabile public della form.
la form è semplice 2 componenti TImage (image1 sorgente e image2 destinazione), 2 Tbutton (button1 carica nello stream button2 scarica dallo stream al componente image).
Ho deciso di discernere i tipi di immagine dunque nelle uses bisogna aggiungere jpeg,pngimage in modo da gestire oltre le bmp anche png e jpeg(jpg)

dichiaro la variabile.

Codice sorgente - presumibilmente Delphi

public
    foStreamImage: TMemoryStream;

creazione e distruzione oggetto stream

Codice sorgente - presumibilmente Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  foStreamImage := TMemoryStream.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(foStreamImage) then
    FreeAndNil(foStreamImage);
end;

Button1click carico nello stream l'immagine

Codice sorgente - presumibilmente Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Graphic.SaveToStream(foStreamImage);
end;

button2click scrivo lo stream in image scegliendo il tipo di immagine

Codice sorgente - presumibilmente Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  FirstBytes: AnsiString;
  Graphic: TGraphic;
begin
  Graphic := nil;
  Screen.Cursor := crHourGlass;
  Image2.Picture := Nil;
  foStreamImage.Seek(0, soFromBeginning );  // reset stream
  try
    SetLength(FirstBytes, 8);
    foStreamImage.Read(FirstBytes[1], 8);
    if Copy(FirstBytes, 1, 2) = 'BM' then
      Graphic := TBitmap.Create
    else if FirstBytes = #137'PNG'#13#10#26#10 then
      Graphic := TPngImage.Create
    else if Copy(FirstBytes, 1, 2) = #$FF#$D8 then
      Graphic := TJPEGImage.Create;
    if Assigned(Graphic) then
    begin
      try
        foStreamImage.Seek(0, soFromBeginning );
        Graphic.LoadFromStream(foStreamImage);
        Image2.Picture.Assign(Graphic);
      except
       // gestione eccezione
      end;
    end
    else
      ShowMessage('Formato immagine non riconosciuto');
  finally
    Screen.Cursor := crDefault;
    Graphic.Free;
  end;
  Image2.Refresh;
end;

..... il tutto ovviamente è migliorabile per mezzo di una property con funzioni get/set in modo da evitare il button1 ... lo lascio come compito per le vacanze a chi lo vuole svolgere

un saluto e spero di non aver detto troppe cavolate
G.

Ultima modifica effettuata da Goblin il 14/08/2011 alle 21:35

Ti ringrazio davvero, con tutto il cuore! :) - Track - 14/08/11 22:00

Ibis redibis non morieris in bello

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 21:01
Venerdì, 12/08/2011

Allora ..
L'oggetto oStm è dichiarato dentro una procedura come variabile locale, e dentro la procedure nasce, vive e muore.
Se vogliamo un oggetto memory stream a livello di applicazione abbiamo molteplici strade da seguire:
1) variabile globale (BRRRR orrore)
2) Variabile public/protected/private della classe mainform (quasi accettabile)
3) Oggetto dentro un Datamodule contenente oggetti che viene creato all'inizio del programma e distrutto alla fine (ottimo compromesso)
4) Variabile locale della procedura (uso e consumo "ad hoc)
Dunque per rispondere alla tua domanda, nel caso 1,2,3 se lo stream viene caricato è sempre presente in tutto il programma e l'immagine (contenuto) è sempre a disposizione, sino a quando non viene fatto un clear o un free, nel caso 4 una volta usciti dalla procedura la variabile stream viene persa.
Spero di essere stato abbastanza chiaro

G.

NB: ricordo che ad ogni create corrisponde un free ......

Ultima modifica effettuata da Goblin il 12/08/2011 alle 21:13

Ma quindi l'immagine è sempre caricata sino a quanto non si viene fatto un Clear o un Free?, scusami allora potresti (ovviamente se non disturbo) cercare di "correggere" l'esempio creato, sottolineo prima della tua spiegazione? - Track - 14/08/11 01:48

L'esempio in questione è il seguente : http://www.megaupload.com/?d=FG4Q2FSE - Track - 14/08/11 01:48

Purtroppo non capisco come variare il codice per l'utilizzo che mi serve... - Track - 14/08/11 20:07

Ibis redibis non morieris in bello

Nullable (Normal User)
Expert

Messaggi: 217
Iscritto: 12/07/2011

Postato alle 15:21
Domenica, 07/08/2011

Se il codice dovesse essere come quello di Goblin ( non conosco il Delphi ) allora quando vai a richiamare SaveToFile sei tu a decidere l'estensione dell'immagine, il programma ti salverà quell'immagine con l'estensione scelta da te quindi sì che è possibile.

Ultima modifica effettuata da Nullable il 07/08/2011 alle 15:22